home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / comms / thor_2.22 / thor.lha / rexx / FSE / Cool.fse < prev    next >
Text File  |  1995-12-18  |  635b  |  41 lines
  1. /* Coolify (using "TEXT COOLER v1.0 by 
  2. ** DDT of the HALF-BRAINS TEAM") text
  3. ** block - by Troels Walsted Hansen
  4. */
  5.  
  6. options results
  7.  
  8. YPOS
  9. currline = result
  10. XPOS
  11. currcolumn = result
  12. MSGLENGTH
  13. lastline = result
  14.  
  15. call open(tfh, "t:UncoolTempFile", W)
  16.  
  17. do i=currline to lastline
  18.     SETPOS 1 i
  19.     GETLINE
  20.     line = result
  21.  
  22.     if(line ~= "") then do
  23.         DELETELINES
  24.         i = i-1
  25.     end
  26.     else break
  27.  
  28.     call writeln(tfh, line)
  29. end
  30.  
  31. call close(tfh)
  32.  
  33. address command "Cool >nil: t:UncoolTempFile t:CoolTempFile"
  34. call delete("t:UncoolTempFile")
  35.  
  36. SETPOS currcolumn currline
  37. INCLUDEFILE "t:CoolTempFile"
  38. call delete("t:CoolTempFile")
  39.  
  40. SETPOS currcolumn currline
  41.